home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / Dir / Dir.makedir < prev    next >
Text File  |  1998-10-22  |  544b  |  35 lines
  1. G4C
  2.  
  3. ; to be called from Dir.gc ONLY!
  4.  
  5. WINBIG -1 -1 450 27 "Make directory"
  6. WinType 11110010
  7. varpath dir.gc
  8. BOX 0 0 0 0 out button
  9.  
  10. xOnLoad
  11. mlv_id = $$LV.ID
  12. JoinFile $$LV.DIR "" mdr_name 
  13. update dir.makedir 1 $mdr_name
  14. guiopen dir.makedir
  15. setgad dir.makedir 1 on
  16.  
  17. xOnClose
  18. lvdir refresh                           ; re-read the dir.
  19. guiquit dir.makedir
  20.  
  21. xOnFail
  22. EZreq "Error creating directory\n$mdr_name" OK ""
  23.  
  24. ;=========================> the text gad
  25.  
  26. XTEXTIN 5 5 438 17 "" mdr_name "" 150
  27. gadid 1
  28. makedir $mdr_name
  29. guiclose dir.makedir
  30.  
  31.  
  32.  
  33.  
  34.  
  35.